/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / s)space inserter

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ac 0d 0a 00 3b 53 50 41 | 43 45 20 49 4e 53 45 52 |....;SPA|CE INSER|
|00000010| 54 45 52 20 53 55 42 52 | 4f 55 54 49 4e 45 20 20 |TER SUBR|OUTINE  |
|00000020| 28 45 4d 46 29 00 14 00 | 3b 20 20 20 20 20 20 20 |(EMF)...|;       |
|00000030| 20 20 20 a0 00 1e 00 3b | 54 48 49 53 20 41 4c 4c |   ....;|THIS ALL|
|00000040| 4f 57 53 20 52 45 50 45 | 41 54 45 44 20 50 52 49 |OWS REPE|ATED PRI|
|00000050| 4e 54 49 4e 47 20 4f 46 | 00 28 00 3b 53 50 41 43 |NTING OF|.(.;SPAC|
|00000060| 45 20 5b 43 48 52 24 28 | 33 34 29 5d 2c 20 4f 52 |E [CHR$(|34)], OR|
|00000070| 20 4f 46 20 41 4e 59 00 | 32 00 3b 43 48 41 52 41 | OF ANY.|2.;CHARA|
|00000080| 43 54 45 52 20 55 53 45 | 44 20 49 4e 20 4c 49 4e |CTER USE|D IN LIN|
|00000090| 45 20 33 38 30 2e 00 3c | 00 3b 00 46 00 43 48 52 |E 380..<|.;.F.CHR|
|000000a0| 4f 55 54 bd 24 46 46 44 | 32 20 20 20 20 3b 36 35 |OUT.$FFD|2    ;65|
|000000b0| 34 39 30 00 50 00 49 4e | 44 45 58 bd 32 00 5a 00 |490.P.IN|DEX.2.Z.|
|000000c0| 43 4f 55 4e 54 bd 34 00 | 64 00 43 48 41 52 bd 33 |COUNT.4.|d.CHAR.3|
|000000d0| 32 20 20 20 20 20 20 3b | 3d 53 50 41 43 45 00 6e |2      ;|=SPACE.n|
|000000e0| 00 3b 00 78 00 be 24 30 | 38 30 44 20 20 20 20 3b |.;.x..$0|80D    ;|
|000000f0| 32 30 36 31 2a 00 82 00 | bb 00 8c 00 3b 00 96 00 |2061*...|....;...|
|00000100| 53 45 54 2e 49 4e 44 45 | 58 a8 23 3c 54 45 58 54 |SET.INDE|X.#<TEXT|
|00000110| 00 a0 00 b0 23 3e 54 45 | 58 54 00 aa 00 ab 3c 49 |....#>TE|XT....<I|
|00000120| 4e 44 45 58 20 20 3b 46 | 4f 52 20 49 4e 44 45 58 |NDEX  ;F|OR INDEX|
|00000130| 00 b4 00 b6 3e 49 4e 44 | 45 58 00 be 00 3b 00 c8 |....>IND|EX...;..|
|00000140| 00 50 52 49 4e 54 b1 23 | 30 00 d2 00 4c 4f 4f 50 |.PRINT.#|0...LOOP|
|00000150| 2e 31 a8 28 49 4e 44 45 | 58 29 2c 59 00 dc 00 9c |.1.(INDE|X),Y....|
|00000160| 45 4e 44 00 e6 00 99 43 | 48 52 4f 55 54 00 f0 00 |END....C|HROUT...|
|00000170| 88 00 fa 00 a6 23 31 20 | 20 20 20 20 20 3b 53 50 |.....#1 |     ;SP|
|00000180| 43 20 43 54 52 4c 3f 00 | 04 01 9e 43 4f 4e 54 2e |C CTRL?.|...CONT.|
|00000190| 31 20 20 3b 4e 4f 3a 43 | 4f 4e 54 49 4e 55 00 0e |1  ;NO:C|ONTINU..|
|000001a0| 01 99 49 4e 53 45 52 54 | 45 52 3b 59 45 53 3a 49 |..INSERT|ER;YES:I|
|000001b0| 4e 53 45 52 54 00 18 01 | 43 4f 4e 54 2e 31 b5 23 |NSERT...|CONT.1.#|
|000001c0| 30 20 20 20 20 20 20 3b | 45 4e 44 20 4f 46 20 50 |0      ;|END OF P|
|000001d0| 47 3f 00 22 01 9e 4c 4f | 4f 50 2e 31 20 20 3b 4e |G?."..LO|OP.1  ;N|
|000001e0| 4f 3a 43 4f 4e 49 4e 55 | 45 00 2c 01 b3 3e 49 4e |O:CONINU|E.,..>IN|
|000001f0| 44 45 58 20 20 3b 59 45 | 53 3a 55 50 44 41 54 45 |DEX  ;YE|S:UPDATE|
|00000200| 00 36 01 9e 4c 4f 4f 50 | 2e 31 20 20 3b 20 49 4e |.6..LOOP|.1  ; IN|
|00000210| 44 45 58 00 40 01 3b 00 | 4a 01 45 4e 44 8f 00 54 |DEX.@.;.|J.END..T|
|00000220| 01 3b 00 5e 01 3b 53 50 | 41 43 45 20 49 4e 53 45 |.;.^.;SP|ACE INSE|
|00000230| 52 54 45 52 20 53 55 42 | 52 4f 55 54 49 4e 45 3a |RTER SUB|ROUTINE:|
|00000240| 00 68 01 49 4e 53 45 52 | 54 45 52 b0 23 30 20 20 |.h.INSER|TER.#0  |
|00000250| 20 20 3b 52 45 53 45 54 | 20 43 4f 55 4e 54 00 72 |  ;RESET| COUNT.r|
|00000260| 01 a8 28 49 4e 44 45 58 | 29 2c 59 3b 23 20 52 45 |..(INDEX|),Y;# RE|
|00000270| 50 45 41 54 53 00 7c 01 | ab 43 4f 55 4e 54 20 3b |PEATS.|.|.COUNT ;|
|00000280| 53 54 4f 52 45 20 49 54 | 00 86 01 a8 23 43 48 41 |STORE IT|....#CHA|
|00000290| 52 20 3b 3d 53 50 41 43 | 45 00 90 01 4c 4f 4f 50 |R ;=SPAC|E...LOOP|
|000002a0| 2e 32 99 43 48 52 4f 55 | 54 3b 50 52 49 4e 54 20 |.2.CHROU|T;PRINT |
|000002b0| 49 54 00 9a 01 87 20 20 | 20 20 20 20 3b 4e 45 58 |IT....  |    ;NEX|
|000002c0| 54 20 43 4f 55 4e 54 00 | a4 01 b4 43 4f 55 4e 54 |T COUNT.|...COUNT|
|000002d0| 20 3b 59 45 54 3f 00 ae | 01 9c 43 4f 4e 54 2e 32 | ;YET?..|..CONT.2|
|000002e0| 3b 59 45 53 3a 20 45 58 | 49 54 00 b8 01 9e 4c 4f |;YES: EX|IT....LO|
|000002f0| 4f 50 2e 32 3b 50 52 49 | 4e 54 20 41 4e 4f 54 48 |OP.2;PRI|NT ANOTH|
|00000300| 52 00 c2 01 43 4f 4e 54 | 2e 32 88 20 20 20 20 20 |R...CONT|.2.     |
|00000310| 20 3b 4e 45 58 54 20 42 | 59 54 45 00 cc 01 8f 20 | ;NEXT B|YTE.... |
|00000320| 20 20 20 20 20 3b 52 45 | 54 55 52 4e 00 d6 01 3b |     ;RE|TURN...;|
|00000330| 00 e8 03 54 45 58 54 b8 | 22 93 11 11 48 45 52 45 |...TEXT.|"...HERE|
|00000340| 20 49 53 20 41 4e 20 45 | 58 41 22 00 f2 03 b8 22 | IS AN E|XA"...."|
|00000350| 4d 50 4c 45 20 4f 46 20 | 54 48 45 20 41 44 56 41 |MPLE OF |THE ADVA|
|00000360| 4e 22 00 fc 03 b8 22 54 | 41 47 45 20 4f 46 22 2c |N"...."T|AGE OF",|
|00000370| 31 33 2c 22 41 20 53 50 | 22 00 06 04 b8 22 41 43 |13,"A SP|"...."AC|
|00000380| 45 2d 49 4e 53 45 52 54 | 49 4e 47 20 52 4f 55 22 |E-INSERT|ING ROU"|
|00000390| 00 10 04 b8 22 54 49 4e | 45 3a 22 2c 31 33 2c 31 |...."TIN|E:",13,1|
|000003a0| 37 2c 31 37 00 1a 04 b8 | 31 38 2c 31 2c 34 30 2c |7,17....|18,1,40,|
|000003b0| 31 34 36 2c 33 32 00 24 | 04 b8 31 38 2c 31 2c 33 |146,32.$|..18,1,3|
|000003c0| 38 2c 31 33 2c 33 32 2c | 31 38 00 2e 04 b8 22 20 |8,13,32,|18...." |
|000003d0| 20 54 48 49 53 20 49 53 | 20 41 20 54 49 54 4c 45 | THIS IS| A TITLE|
|000003e0| 22 00 38 04 b8 22 20 49 | 4e 20 52 45 56 45 52 53 |".8.." I|N REVERS|
|000003f0| 45 20 56 49 44 45 4f 22 | 00 42 04 b8 31 2c 34 2c |E VIDEO"|.B..1,4,|
|00000400| 31 33 2c 33 32 00 4c 04 | b8 31 38 2c 31 2c 33 38 |13,32.L.|.18,1,38|
|00000410| 2c 32 39 2c 31 2c 34 30 | 2c 31 33 00 56 04 b8 22 |,29,1,40|,13.V.."|
|00000420| 55 53 49 4e 47 20 34 30 | 20 53 50 41 43 45 53 20 |USING 40| SPACES |
|00000430| 49 22 00 60 04 b8 22 4e | 20 54 48 45 20 4c 41 53 |I".`.."N| THE LAS|
|00000440| 54 20 4c 49 4e 45 20 22 | 00 6a 04 b8 22 46 4f 52 |T LINE "|.j.."FOR|
|00000450| 43 45 53 22 2c 31 33 2c | 22 41 4e 20 22 00 74 04 |CES",13,|"AN ".t.|
|00000460| b8 22 45 58 54 52 41 20 | 4c 49 4e 45 20 46 45 45 |."EXTRA |LINE FEE|
|00000470| 44 2e 22 00 7e 04 b8 31 | 2c 36 33 00 88 04 b8 22 |D.".~..1|,63...."|
|00000480| 54 48 45 20 41 43 54 55 | 41 4c 22 00 92 04 b8 22 |THE ACTU|AL"...."|
|00000490| 20 52 45 50 45 41 54 45 | 44 20 43 48 41 52 41 43 | REPEATE|D CHARAC|
|000004a0| 54 22 00 9c 04 b8 22 52 | 20 4d 41 59 20 42 45 22 |T"...."R| MAY BE"|
|000004b0| 2c 31 33 2c 22 43 48 41 | 22 00 a6 04 b8 22 4e 47 |,13,"CHA|"...."NG|
|000004c0| 45 44 20 44 55 52 49 4e | 47 20 41 20 52 55 4e 22 |ED DURIN|G A RUN"|
|000004d0| 00 b0 04 b8 22 20 42 59 | 20 50 4f 4b 45 49 4e 47 |...." BY| POKEING|
|000004e0| 20 41 20 4e 45 57 22 00 | ba 04 b8 31 33 2c 22 43 | A NEW".|...13,"C|
|000004f0| 48 41 52 41 43 54 45 52 | 20 49 4e 54 4f 22 00 c4 |HARACTER| INTO"..|
|00000500| 04 b8 22 20 42 41 2b 34 | 31 20 28 4c 49 4e 45 20 |.." BA+4|1 (LINE |
|00000510| 33 39 30 29 22 00 ce 04 | b8 22 2e 22 2c 30 00 d8 |390)"...|.".",0..|
|00000520| 04 3b 00 e2 04 3b 53 55 | 42 53 54 49 54 55 54 45 |.;...;SU|BSTITUTE|
|00000530| 20 31 31 33 20 46 4f 52 | 20 33 32 20 49 4e 20 4c | 113 FOR| 32 IN L|
|00000540| 49 4e 45 00 ec 04 3b 31 | 30 30 20 54 4f 20 53 48 |INE...;1|00 TO SH|
|00000550| 4f 57 20 57 48 41 54 20 | 48 41 50 50 45 4e 53 2c |OW WHAT |HAPPENS,|
|00000560| 20 41 4e 44 00 f6 04 3b | 48 4f 57 20 41 20 44 49 | AND...;|HOW A DI|
|00000570| 46 46 45 52 45 4e 54 20 | 52 45 50 45 41 54 2d 43 |FFERENT |REPEAT-C|
|00000580| 48 41 52 41 43 2d 00 00 | 05 3b 54 45 52 20 4d 41 |HARAC-..|.;TER MA|
|00000590| 59 20 42 45 20 55 53 45 | 44 2e 00 0a 05 3b 00 14 |Y BE USE|D....;..|
|000005a0| 05 3b 4e 4f 54 49 43 45 | 20 54 48 45 20 45 58 54 |.;NOTICE| THE EXT|
|000005b0| 52 41 20 36 33 20 53 50 | 41 43 45 53 20 49 4e 00 |RA 63 SP|ACES IN.|
|000005c0| 1e 05 3b 4c 49 4e 45 20 | 31 31 33 30 20 49 4e 20 |..;LINE |1130 IN |
|000005d0| 50 4c 41 43 45 20 4f 46 | 20 41 20 4c 49 4e 45 2d |PLACE OF| A LINE-|
|000005e0| 00 28 05 3b 46 45 45 44 | 20 41 4e 44 20 49 4e 44 |.(.;FEED| AND IND|
|000005f0| 45 4e 54 49 4e 47 20 53 | 50 41 43 45 53 2e 00 32 |ENTING S|PACES..2|
|00000600| 05 3b 00 3c 05 3b 2a 20 | 50 55 54 54 49 4e 47 20 |.;.<.;* |PUTTING |
|00000610| 42 2e 41 2e 20 41 54 20 | 32 30 36 31 20 41 4c 4c |B.A. AT |2061 ALL|
|00000620| 4f 57 53 00 46 05 3b 53 | 41 56 49 4e 47 20 54 48 |OWS.F.;S|AVING TH|
|00000630| 49 53 20 4d 43 20 50 52 | 47 20 41 53 20 41 20 42 |IS MC PR|G AS A B|
|00000640| 41 53 49 43 00 50 05 3b | 4f 4e 45 3a 00 5a 05 3b |ASIC.P.;|ONE:.Z.;|
|00000650| 20 45 4e 54 45 52 20 20 | 31 30 20 53 59 53 32 30 | ENTER  |10 SYS20|
|00000660| 36 31 20 20 49 4e 20 42 | 41 53 49 43 2e 00 64 05 |61  IN B|ASIC..d.|
|00000670| 3b 20 41 53 53 45 4d 42 | 4c 45 20 54 48 49 53 20 |; ASSEMB|LE THIS |
|00000680| 50 52 47 2e 00 6e 05 3b | 20 46 49 4e 44 20 45 2e |PRG..n.;| FIND E.|
|00000690| 41 2e 20 28 55 53 45 20 | 22 58 22 20 43 4d 44 29 |A. (USE |"X" CMD)|
|000006a0| 2e 00 78 05 3b 20 50 55 | 54 20 54 48 41 54 20 45 |..x.; PU|T THAT E|
|000006b0| 2e 41 2e 20 49 4e 54 4f | 20 34 35 20 26 20 34 36 |.A. INTO| 45 & 46|
|000006c0| 00 82 05 3b 20 20 49 4e | 20 55 53 55 41 4c 20 4c |...;  IN| USUAL L|
|000006d0| 42 20 26 20 48 42 20 46 | 4f 52 4d 41 54 2e 00 8c |B & HB F|ORMAT...|
|000006e0| 05 3b 20 47 4f 20 54 4f | 20 42 41 53 49 43 20 41 |.; GO TO| BASIC A|
|000006f0| 4e 44 3a 00 96 05 3b 20 | 20 53 41 56 45 22 53 50 |ND:...; | SAVE"SP|
|00000700| 41 43 45 20 49 4e 53 45 | 52 54 45 52 22 2c 38 00 |ACE INSE|RTER",8.|
|00000710| a0 05 3b 00 00 00 53 50 | 41 43 45 20 49 4e 53 45 |..;...SP|ACE INSE|
|00000720| 52 54 45 52             |                         |RTER    |        |
+--------+-------------------------+-------------------------+--------+--------+